﻿Module Module1

    Sub Main()
        Dim array_libros(5) As Libros
        Dim i As Integer = 0

        'En este bucle pedimos los datos de cada libro por pantalla
        While i < 5
            Console.Write("Indique título del libro " & i + 1 & ":  ")
            array_libros(i).titulo = Console.ReadLine()
            Console.Write("Indique autor del libro " & i + 1 & ":  ")
            array_libros(i).autor = Console.ReadLine()
            Console.Write("Indique editorial del libro " & i + 1 & ":  ")
            array_libros(i).editorial = Console.ReadLine()
            Console.Write("Indique año del libro " & i + 1 & ":  ")
            array_libros(i).fecha.anno = Console.ReadLine()
            Console.Write("Indique mes del libro " & i + 1 & ":  ")
            array_libros(i).fecha.mes = Console.ReadLine()
            Console.Write("Indique dia del libro " & i + 1 & ":  ")
            array_libros(i).fecha.dia = Console.ReadLine()
            Console.WriteLine() 'salto de linea
            i = (i + 1)

        End While
        i = 0
        Console.WriteLine() 'salto de linea
        Console.WriteLine()
        'En este otro bucle de abajo mostramos los datos por pantalla.
        While i < 5

            Console.WriteLine("Datos del libro: " & i + 1)
            Console.WriteLine("Título: " & array_libros(i).titulo)
            Console.WriteLine("Autor: " & array_libros(i).autor)
            Console.WriteLine("editorial: " & array_libros(i).editorial)
            Console.WriteLine("Año: " & array_libros(i).fecha.anno)
            Console.WriteLine("Mes: " & array_libros(i).fecha.mes)
            Console.WriteLine("Día: " & array_libros(i).fecha.dia)
            Console.WriteLine() 'salto de linea
            i = (i + 1)
        End While
        Console.ReadLine()

    End Sub
    'NO ES NECESARTIO PONER LAS STRUCTURE ANTES DEL SUB MAIN!!!!!!!

    Structure Libros
        Dim titulo As String
        Dim autor As String
        Dim editorial As String
        Dim fecha As Fecha
    End Structure

    Structure Fecha
        Dim anno As Integer
        Dim mes As Integer
        Dim dia As Integer
    End Structure


End Module
